#Figure 1

load("Figure 1.Rdata")
p<-ggplot(plot, aes(year_count, mean,
                    color =factor(interaction(ever_mil, ever_resolution),
                                  labels = c("Neither", "Resolutions Only", "Both")),
                    linetype=factor(interaction(ever_mil, ever_resolution),
                                    labels = c("Neither", "Resolutions Only", "Both"))))+
  geom_line(cex=2)+
  labs(x="Years since CPA", 
       y="Average Implementation Rate",
       col="Troops and Resolutions",
       linetype="Troops and Resolutions")+
  scale_x_continuous(breaks = seq(1,10,1))+
  scale_y_continuous(limits = c(0,100), breaks=seq(0,100,25))+
  theme_bw(base_size=15)+
  theme(legend.key.width = unit(1,"cm"))+
  scale_color_viridis_d()
p


pdf("Figure1.pdf")
p
dev.off()

rm(plot, p)
                     